VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton Command1 
      Caption         =   "Time"
      Height          =   495
      Left            =   2520
      TabIndex        =   1
      Top             =   120
      Width           =   1455
   End
   Begin VB.TextBox Text1 
      Height          =   285
      Left            =   120
      TabIndex        =   0
      Text            =   "c:\config.sys"
      Top             =   120
      Width           =   2175
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type
Private Type SYSTEMTIME
    wYear As Integer
    wMonth As Integer
    wDayOfWeek As Integer
    wDay As Integer
    wHour As Integer
    wMinute As Integer
    wSecond As Integer
    wMilliseconds As Integer
End Type
Private Declare Function FileTimeToSystemTime Lib "kernel32" (lpFileTime As FILETIME, lpSystemTime As SYSTEMTIME) As Long
Private Declare Function GetFileTime Lib "kernel32" (ByVal hFile As Long, lpCreationTime As FILETIME, lpLastAccessTime As FILETIME, lpLastWriteTime As FILETIME) As Long

Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Const OF_READ = &H0
Private Type OFSTRUCT
    cBytes As Byte
    fFixedDisk As Byte
    nErrCode As Integer
    Reserved1 As Integer
    Reserved2 As Integer
    szPathName(128) As Byte
End Type

Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long

Private Sub Command1_Click()
Dim LastWrite As FILETIME
Dim LastAccess As FILETIME
Dim Creation As FILETIME
Dim LastWriteTime As SYSTEMTIME
Dim LastAccessTime As SYSTEMTIME
Dim CreationTime As SYSTEMTIME

Dim FileHandle As Long
Dim openbuff As OFSTRUCT

FileHandle = OpenFile(Text1.Text, openbuff, OF_READ)
GetFileTime FileHandle, Creation, LastAccess, LastWrite
CloseHandle FileHandle
FileTimeToSystemTime LastWrite, LastWriteTime
FileTimeToSystemTime LastAccess, LastAccessTime
FileTimeToSystemTime Creation, CreationTime

Dim OutPut$
OutPut$ = CreationTime.wDay & "/" & CreationTime.wMonth & "/" & CreationTime.wYear & vbCr & vbLf
OutPut$ = OutPut$ & CreationTime.wHour & ":" & CreationTime.wMinute & ":" & CreationTime.wSecond & vbCr & vbLf
MsgBox OutPut$, , "Creation Details"

OutPut$ = LastAccessTime.wDay & "/" & LastAccessTime.wMonth & "/" & LastAccessTime.wYear & vbCr & vbLf
'Last access dosn't seem to have a time tied to it
'OutPut$ = OutPut$ & LastAccessTime.wHour & ":" & LastAccessTime.wMinute & ":" & LastAccessTime.wSecond & vbCr & vbLf
MsgBox OutPut$, , "Last Access Details"

OutPut$ = LastWriteTime.wDay & "/" & LastWriteTime.wMonth & "/" & LastWriteTime.wYear & vbCr & vbLf
OutPut$ = OutPut$ & LastWriteTime.wHour & ":" & LastWriteTime.wMinute & ":" & LastWriteTime.wSecond & vbCr & vbLf
MsgBox OutPut$, , "Last Write Details"
End Sub